	CHARACTER*1 ANS
	WRITE(6,1)
1	FORMAT(' ENTER STATUS >',$)
	READ(5,1)ans
	IF(ANS .EQ. 'G')GO TO 200
200	CALL EXIT
	END
